ub 데이터입력()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ws.Range("C5:C7").Value = Array("1", "최준선", "대리")
    ws.Range("F6").Resize(3, 1).Value = Application.Transpose(ws.Range("C5:C7"))

End Sub
